<%

Function clubes_emular_jogo(id_jogo, ByRef placar_1, ByRef placar_2)

	str = "Select id_rodada, id_clube_1, id_clube_2 FROM torneios_jogos where id="&id_jogo
    	Set rs = conexao_clubes.Execute(str)
		
	placar_1 = 0
	placar_2 = 0

	IF not rs.eof then
	
		DIM id_rodada, id_club_1, id_club_2, jogadores_1(4), jogadores_2(4)
		DIM placar_1_, placar_2_, pontos, confrontos(4,1), i
		
		confrontos(0,0)=1
		confrontos(0,1)=3
		confrontos(1,0)=1
		confrontos(1,1)=3
		confrontos(2,0)=3
		confrontos(2,1)=6
		confrontos(3,0)=3
		confrontos(3,1)=6
		confrontos(4,0)=6
		confrontos(4,1)=10
		
		
		id_rodada = rs("id_rodada")
		id_clube_1 = rs("id_clube_1")
		id_clube_2 = rs("id_clube_2")
		
		clubes_jogadores_titulares id_clube_1, jogadores_1	
		clubes_jogadores_titulares id_clube_2, jogadores_2
		
		for i=0 to 4
		
			placar_1_ = apostas_get_pontuacao_posicoes(id_rodada, jogadores_1(i),confrontos(i,0),confrontos(i,1))
			placar_2_ = apostas_get_pontuacao_posicoes(id_rodada, jogadores_2(i),confrontos(i,0),confrontos(i,1))
			
			pontos = placar_1_-placar_2_
			
			If pontos>0 then
				placar_1=placar_1+pontos
			Else
				placar_2=placar_2+pontos			
			End If
			
		
		next		

	End If

End Function

%>